Ifekrtoues 

The 4051 Applications Library Newsletter February 1 , 1 979 Vol. 3 No. 1 




A researcher at the University of Western Australia digitizes body positions of player during volleyball recovery technique. 
Analyzing the digitized film with the 4051 allows the researchers to compare speed, accuracy, and injury in diving versus rolling. 

(Courtesy of University of Western Australia) 



Using the 4051 in High Speed Film Analysis 



by G. Keith McElroy 

University of Western Australia 



analysis techniques, and to obtain direction for future 
research. 



Computer Graphics. Often when that term arises, we 
think of a graphic representation of data from computer 
memory — graphics from the inside out. This is a valid 
means of making the data easier to see. But how about 
applying the analytical powers of the 4051 Graphic 
System to real world phenomena, extracting the data 
from the movement of objects as they really do move? At 
the University of Western Australia, the Department of 
Physical Education has undertaken such an application 
of computer graphics; their system includes the 4051 
Graphic System to perform the analysis. The pilot study 
for their high-speed film and computer analysis project 
investigated two emergency recovery techniques in 
volleyball: diving versus rolling. 

In this application, researchers film subjects, then digitize 
and analyze the film, a method of graphics from the 
outside in. The aim of their pilot study has been to 
investigate the technique of high-speed film analysis, to 
provide an introduction to the system equipment and to 



High-speed film analysis can be used as a systematic study 
to provide information about the details of movement 
that occur too quickly for the human eye to see. In 
volleyball, like many sports, coaches must offer advice to 
players based on the coaches' own intuitivejudgment and 
past experience. The film analysis system opens the way 
for precise measurements that can support the coaches' 
judgment. It may also provide new information that can 
alter coaching decisions. High-speed film analysis can 
provide a scientific basis for coaching decisions about 
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alternate playing techniques, beyond simple recording 
and displaying an action. 

The university volleyball coaching texts deal briefly with 
the diving technique for recovering the ball in an 
emergency playing situation. The texts, however, present 
little evidence for the superiority of any one technique 
over another (diving versus rolling, for instance) or the 
variations of techniques. Variables to consider include 
speed, accuracy, and injury prevention. Possible 
variations in techniques may occur as well: players may 
use one hand or two, for instance. Analyzing high-speed 
film with the 4051 enables all of these variables to be 
studied in a systematic manner. 

Study Procedures and Techniques 

The first step in the study was to select three highlv-skilled 
subjects. Each subject represented a different height 
category— short, medium, and tall. The subjects per- 
formed emergency recoveries using both the dive techni- 
que and the roll technique, from distances of 3.0, 3.5, and 
4.0 metres. The volleyball was suspended 30 cm above the 
polished wood gymnasium floor. This stationary ball 
position was chosen because there was not enough time 
available to devise an apparatus that could consistently 
deliver the ball with appropriate velocity and placement. 

The player subjects were marked on selected body j oint 
positions, and were permitted to warm- up in their own 
manner. The players were told that they were to respond 
as in an emergency situation. Therefore, the greatest 
possible speed was required, both to the ball and back 
onto the feet. They were instructed to "dig" the ball 
vertically, with the intention of recovering ball height for 
further play. As the subjects performed their emergency 
recoveries, the high-speed cameras filmed the action for 
analysis. 

Figure 1 shows the location of the filming equipment. 
Two Photosonics 16mm high-speed cameras were used to 
film the action; one was located directly in front of the 
action, the other filmed perpendicular to the direction of 
motion. The front camera filmed at a rate of 100 frames 
per second, while the side camera filmed at the 200 frames 
per second rate. A standard scale was positioned for 
reference at the point of ball contact, and was filmed by 
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each camera. A sweep-hand timing clock in the camera 
field of view allowed the camera frame rate accuracy to be 
verified. ^ 

The processed film was then run through the film analysis 
system, which consists of a Spectro Mark III Motion 
Analysis Projector, a film table, and a Numonics 224 
Digitizer interfaced directly to the 4051 Graphic System. 
Programming efforts were guided by Robert McIntosh, a 
university technical officer. The 4051 uses the input data 
to analyze the various techniques. The cover photo shows 
the analysis system equipment. 

The following procedure obtained usable data from the 
film: 

1. The scale factor was calculated by comparing the 
apparent length of the hurdle with the known two- 
metre reference scale. 

2. The time interval between frames was calculated, 
using the known frame rate of the cameras corrected 
to the filmed time clock. 

3. The location of selected body parts, and the volleyball, 
were input to the 4051 by means of the digitizer. This 
allowed basic kinematic analysis to be performed: 
further soft ware development will allow calculation of 
more detailed kinetic factors. 



4. Selected hand tracings were made of the critic^ 
positions and sequences, from the 4051 display. (A 




Fig. 1 . Location of Equipment 




Fig. 2. Dive Sequence: From 3.0 Metres J.H.1 
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hard copy unit or a plotter will be added to the system 
in the future, to provide the drawings.) 

The results of the above analysis are described in the 
remainder of this article. 

Study Results 

Figure 2 shows the graphic representation of the typical 
diving recovery technique. One surprising result occurred 
in the test: only one trial out of nine dives resulted in the 
subject becoming truly airborne before ball contact: this 
was subject T.N. over the longest distance. Figure 3 
illustrates a typical rolling technique for recovery. Tables 
1 and 2 are summaries of the primary measurements 
taken. 
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Fig. 4. Comparison of Time to Ball Contact Dive Vs. Roll 
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N-A = film damaged during analysis 



Table 1 . Dive Statistics. 
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Table 2. Roll Statistics 



However, the second playing priority is recovery to a 
playing position with both soles on the floor. This was 
accomplished faster with the use of the roll technique than 
with the dive (Figure 5), so the roll technique could be an 
advantage for the player to take part in further play. It 
may even be possible to develop a combination technique, 
using the best features of the dive and the roll techniques. 



In emergency situations requiring the use of these ball 
recovery techniques, the time taken to contact the ball is 
the first priority. The dive was clearly faster than the roll, 
with increasing distances requiring longer times. This 
information has been extracted from the tables and 
displayed graphically in Figure 4. 



The typical body alignment from the side view is 
displayed in Figure 6. Note that the body had not yet 
become airborne, and that the non-contact hand was at 
the same height as the contact hand. Subject T.N., over 
the longest distance, displayed the only occurrence of 
airborne ball contact, as shown in Figure 7; again the 
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contact and non-contact hands were at a similar height. 
The tables show that the subjects had approximately 0.2 
seconds to place hands on the floor after ball contact; time 
between each hand’s contact was very small. This makes it 
apparent that there was time for both hands to take part 
in ball contact, which may be desirable: two-handed 
contact may give more control. It was noted that the non- 
contact hand was generally held a little wider for balance, 
and perhaps for safety assurance for the two subjects who 
made palm-up ball contact and hence needed to rotate the 
hand before landing. (Single-handed ball contact may 
allow for last-minute position or direction adjustment.) 
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Fig. 5. Comparison of Time from Ball Contact to Recovery: 
Dive Vs. Roll 





Fig. 7. Body Position at Ball Contact: Dive T.N, 3 

Film analysis also showed that subjects made ball contact 
with the palm up during the rolls. Errors with the roll were 



generally less than with the dive. Errors viewed from the 
front varied to either side of the subject; errors viewed 
from the side were forward of the vertical in all except one^ 
subject’s trial. Figure 8 represents the absolute errorsv 
from the vertical, calculated in 3-dimensional space. 

The fact that two subjects used palm up orientation 
during ball contact in the dive runs counter to the general 
volleyball texts in use at the University. In their cases 
errors (viewed from the front) were to the subject left. The 
remaining subject, T.N., used a palm down hand orienta- 
tion at ball contact; all his errors were to the subject right. 
As with the rolls, dive errors (viewed from the side) were 
forward of the vertical, with one solitary exception. 







Fig. 8. Absolute Error of Ball Direction After Contact 
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Fig. 9. Example Centre of Gravity: Roll Vs. Dive 



In the filmed experiments, subjects moved directly 
forward toward the ball from a position facing the net. 
The palm up orientation may leave more scope for 
hooking a ball back into play, if it requires a side 
deflection. Use of the palm down may give reassurance of 
landing safely. Some subjects had a knee in contact with 
the floor at ball contact, which also seemed to add further 
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stability from which to hit the ball. 

Figure 9 displays examples of the centre of gravity (c. of 
g.) pathways calculated for the roll and the dive techni- 
que. Analysis of each technique showed marked similari- 
ty between subjects, but there were consistent differences 
between techniques. During the dive the c. of g. remained 
quite high until near the point of ball contact, and then 
dropped moderately quickly. This indicated the need for 
more shock absorption, compared with the roll, where the 
c. of g. started a gradual downward path much earlier. 
The considerably lower elevation of the c. of g. at the 
moment of ball contact during the roll is also indicated in 
Figure 9. Another indication of the greater shock 
absorption required in the dive was also shown by the film 
analysis. The time of trunk contact during each slide was 
less than for the corresponding roll, thus indicating more 
rapid absorption of shock required during the slide. 

Thus the risk of injury was greater during the dive, 
particularly since the dive required the lumbar curvature 
of the spine to increase, rather than the safer decrease of 
lumbar curvature required during the roll. The use of arm 
strength betore trunk contact during the dive was 
necessary to prevent injury. A very important aspect of 
injury prevention and technique involved the continued 
motion of thighs, legs and feet forward, toward the back 
ot the head. This allowed more gradual dissipation of 
momentum, to prevent injury. Faster recovery onto the 
lee t was permitted by allowing the trunk to stop quicklv 
while the total c. of g. continued to move forward due to 
the movement of thighs and legs. 

A graphic comparison ot c. of g. velocities confirms the 
above. The horizontal, or X, component of the c. of g. 
velocities showed consistency from subject to subject for a 
given technique, but differed between the rolls and dives. 
The X velocities were of a similar order of magnitude, but 
the drop off" was slightly faster for the dive, mainly due 
to the shorter trunk contact time during the slide. 

Likewise the vertical or Y component of the c. of g. 



velocities showed consistency from subject to subject for a 
technique, but differed between the rolls and dives. The 
negative Y values show that downward velocities for the 
dive exceeded those for the roll. This indicates a slightly 
more violent meeting with the floor. Determining these 
velocity values can be highly beneficial for reduction of 
playing injuries. 

Summary 

Based on this pilot study, the researchers at University of 
Western Australia were able to draw several conclusions: 

1. The dive technique is faster to the point of ball 
contact. 

2. The roll technique allows a faster recovery after ball 
contact. 

3. The roll technique is more accurate. 

4. The dive technique allows time for both arms to take 
part in ball contact if this is considered desirable. 

5. A combination of diving contact with rolling recovery 
may be possible, and offers some theoretical advan- 
tage. This is as yet untested. 

6. Computer-aided film analysis is a useful investigative 
technique, and further co-operation between coach 
and researcher appears desirable, in volleyball and 
other sports. In fact, the same techniques are being 
investigated for applications in Australian football, 
golf, cricket, swimming and gymnastics. 

Researchers are in the process of adding further 
refinements to the system. Additional data is being 
integrated into the computations, coming from 
accelerometers, force platforms, and electromyographic 
(muscle eletrical activity) recordings taken as the subject 
is filmed. So exploration into this 4051 application is 
continuing, adding another growing realm to the 4051 
Graphic System experience. 

Article and photograph made available through assistance 
of Herman D’Hondt, Tektronix Sales Engineer, North Ryde, 
N.S.W., Australia. 



4051 Speeds Up Pulmonary Testing 



The muffled sound of jackhammers and saw's periodically 
intrudes into the modern laboratory as construction 
continues on the new United Hospitals, Inc., in St. Paul, 
MN. An automated pulmonary testing system, as up to 
date as the building itself, stands in a newly completed 
wing. 

Lab technician Jim Day is completing a pulmonary 
functions test; it has taken approximately one minute. 
Depending on the type of test, the time saved over older 
methods varies from 45 minutes to two hours. At the 



heart of the system is a TEKTRONIX 4051 Graphic 
System busily calculating, interpreting and plotting the 
data. 

Pulmonary Functions 

One of the body’s exchange points is in the lungs, where 
the blood drops off carbon dioxide and picks up oxygen. 
Volume and flow are two indicators of how well the lungs 
are functioning. Carbon Monoxide Diffusion Capacity 
measures the ability of the lungs to transfer gases 
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(oxygen) from the lungs into the blood. These tests along 
with others can warn of disease such as emphysema, 
asthma, bronchitis or chronic obstructive lung disease as 
well as giving the doctor an indication of drug side effects. 




Kye Anderson describes the configuration of the System 1000 
which performs all pulmonary functions testing at United 
Hospitals, Inc, in St. Paul, Minn. 




Pulmonary Lab Director Jim Day interprets the flow-volume 
loop graphed on the 4051 . 



The Test 

During the test the patient breathes into a spirometer. 
First the patient takes a couple of normal breaths then 
inhales deeply and blows out as far and hard as possible. 
An AMS Model 704 interface converts the analog data of 
the spirometer into digital format, and sends it on the 
IEEE 488 General Purpose Interface Bus (GPIB) to the 
405 1 . The program running on the 405 1 looks for the peak 
and minimum values of the exhaled air. These values 
multiplied by a calibration factor calculate the vital 
capacity of the lungs (Figure 1). 
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Fig. 1 . Volume is one indicator of how well the lungs are 
functioning. 



A second test produces a flow-volume loop. The patient 
takes a deep breath and blows into the spirometer as fast 
and hard as possible until he or she can’t blow any more. 
Then the patient rapidly inhales the air. The flow data is 
plotted along the Y-axis and the volume on the X-axis. As 
volume and flow increase then decrease it results in a 
loop. The flow rate at 25. 50, and 759c of the volume is 
picked off for comparison with normal flow rates. The 
4051 plots the curve of this data against a normal curve, 
which readily shows if something is amiss (Figure 2). 
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Fig. 2. The flow-volume loop is one method of detecting 
abnormalities of the lung. 



Applying the Results 

Kye Anderson of Medical Graphics Corporation, who 
configured the system, explains why the tests are helpful 
and what they might indicate. 

The early detection of abnormal lung functions aid the 
diagnosis and speeds up initial treatment of the disease. 
Abnormalities of the lung mechanics could indicate such 
diseases as emphysema, chronic bronchitis or bronchial 
asthma. 

Kye said certain medications such as those used in the 
treatment of cancer can decrease the capacity of the lung 
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to diffuse gas into the blood, therefore the periodic testing 
of such lung tests is a necessity in the treatment of such 
diseases. 

The Occupational Safety and Health Act resulted in 
stringent rules for working environments. Therefore 
some lung tests are mandatory for employees working 
with asbestos or other harmful lung pollutants. 

However, prior to the Medical Graphics Pulmonary 
System that includes the 4051, the AMS 704, and a 
TEKTRONIX 463 1 Hard Copy Unit, the time required to 
reduce, interpret and graph the data made it difficult to do 
routine screening of a large population. Now this system 
is a useful tool in everyday life at hospitals, clinics, and 
industrial screening processes. 

Other Uses 

Other pulmonary function tests include Functional 
Residual Capacity. When ail the respiratory muscles are 
relaxed and there is no air moving in or out of the lungs 
(as is the situation at the end of a normal expiration), 
there is still a volume of air in the lungs. This volume of 
gas in the lungs is called Functional Residual Capacity. 



When this parameter is measured the total lung capacity 
can be calculated allowing the physician to differentiate 
between Restricitive diseases (as pulmonary fibrosis) or 
Obstructive diseases (as asthma or emphysema). 

A Blood Gas Analysis and Interpretation test plots gas 
exchange before, during and after exercise or different 
concentrations of oxygen. 

A pulmonary exercise program measures certain 
parameters of lung function during exercise and provides 
information regarding the patients capacity or incapacity 
to exercise. 

At United Hospitals, Inc., the Medical Graphics Cor- 
poration system is interfaced to a Med-Science 
Spirometer and gas analyzers. When the 4051 is not 
involved in testing, its stand-alone features allow it to 
maintain patient records, bookkeeping functions, 
departmental statistics and other business details. JgD 

Interview arranged by Dick Pula, Tektronix Sales Engineer, 
St. Paul. Minn. 

Editors Note: Medical Graphics Corporation, 14253 St. Croix Trail 
North, Stillwater, Minnesota 55082, can provide more details of the 
AMS Model 704 interface and the software. 



Modified RS-232 Interface Expands BASIC I/O Mode to 
Half Duplex 



by Pat Kelley 

The 4050 Option 1 MOD AA RS-232 Data Com- 
munications Interface expands BASIC 1/ O mode to half 
duplex allowing its use on high speed modems. 

The BASIC I/O keywords PRINT, LIST, SAVE, 
TLIST, INPUT, OLD and APPEND drive the RS-232 
data link by specifying primary address 40. This enables 
RS-232 input/ output under program control or through 
the keyboard. However, on the standard 4051 Option 1 
this mode can only be used on full duplex com- 
munications and most full duplex modems have a limited 
baud rate, usually 300. To allow BASIC I/O to be used on 
higher speed modems which are characteristically half 



duplex, the modified interface expands BASIC I/O to 
half duplex. 

The other features of the 4051 Option 1, which equips 
your 4051 to communicate with host computers, ter- 
minals, and other RS-232 equipment as a terminal, by 
tape or through BASIC I/O, remain essentially the same. 

4051 Option 1 MOD A A is available as a complete 
communications backpack interface or may be purchased 
as a kit to modify an existing standard 4051 Option 1. 
Your local Tektronix Sales Engineer can tell you more 
about 4051 Option 1 MOD AA CM02 1-0256-00 
(complete backpack) or 4051 Option 1 MOD AA 
CM021-0415-00 (kit). JgD 



Engineer Designs Spacecraft 

By Patricia Kelley 

"Designing the spacecraft to go where you want it to go 
and to face the way you want it to face" is how Erwin 
Vogel describes his job at Fairchild Industries' Space and 
Electronics Division, located a few miles outside of 
Washington, DC. These simple terms belie the com- 



plicated nature of his work. Vogel, a longtime engineer 
with Fairchild, is involved in systems analysis, theoretical 
analysis, and attitude control of spacecraft. Aiding in 
such precise engineering is the TEKTRONIX 4051 
Graphic System. 

Vogel explains that every inch of a spacecraft is subject to 
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Erwin Vogel, engineer at Fairchild Industries, ex- 
plains one aspect of spacecraft design, using the 
4051. 



varying magnitudes and directions of physical, electrical, 
magnetic and gravitational forces. To analyze the effects 
of the forces, the engineers create three-dimensional 
models representing all areas of the craft. Producing the 
models by hand is extremely time consuming, as well as 
being prone to error. 

To overcome these problems, Vogel has designed a 
number of programs for the 4051. one of which is the 
"NASTRA N Deck Generator for Electronic Enclosure 
Analysis/ The engineer works interactively with the 4051 
to describe his model; from this information the program 
calculates, formats and writes the model specifications to 
tape. Then from tape, the data is transmitted through the 
Option 1 RS-232 interface to a host computer w'here bulk 
data and JCL cards are automatically keypunched. The 
cards are fed to the host computer and a complex 
structural analysis program (NASTRAN) analyzes what 
displacement, distortion, stress, and so on, occur upon 
the model due to the forces acting upon it. 



Vogel’s program is tutorial. Initially a schematic is drawn 
on the graphic screen; the program them prompts the user 
toenter 12 coordinates on his model (Figure 1), specifying 




Fig. 1 . Referencing his drawing, the engineer keys in the 
coordinates of his model. 
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This is the development of the bo*. to scale 




Fig. 2. A few of the node numbers and coordinates have been 
superimposed to show the relationship to Figure 1. 
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Panel number i: 1*1.023 

Panel number 2: 2*0.03 

Panel number 3: 2*0.04 

Panel number 4: 3*0.1 

Panel number 3: 1*0.02 

Panel number 6: 1*0.025 

Press COPY to save this page* then press RETURN 



Fig. 3. Charge number and title for the run are keyed in. The 
operator is then prompted for the material and its 
thickness. 



Bottom Panel Humber 2 




How many cutouts in this panel ? 3 



Key in sect. •* each cutout: 



Hou many concentrated masses on this panel T 3 
r 2C 5*f*» *«¥ frid «««*««* and weight: 

01: BM»5.2 02: 110,1.0 03: 22B* 100 

Press COPY to save this page* then press RETURN 



Fig, 4. The small "x" indicates the cutouts. The concentrated 
mass weight is printed above the grid number. 
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the corners of any rectangular or skew box. Constant 
coordinate data, or those coordinates calculated from 
other points, needn’t be entered. Calling the Matrix 
ROM, the program calculates and displays the direction 
cosine data of the normals to the six faces (panels). 

The next step "opens up" the box and the operator 
specifies how many subdivisions are required on each 
panel (Figure 2). Material type and thickness are also 
keyed in for each panel (Figure 3). 

The panels with their subdivisions are drawn on the 
screen. The program prompts the user for the number and 
location of cutouts (no material), and the number and 
weights of concentrated masses for each panel (Figure 
44). The final entries specify support points and locations 
(Figure 5). Vogel points out that every box is supported 
somewhere. 

The 4051 calculates the data, formats it to NASTRAN 
requirements, prints it to the screen ( optional) and writes 
it to tape (Figure 6). The data are now ready for 
transmission to the host computer. 

Vogel says handling the data through the 405 1 takes one- 
tenth of the time previously required using a calculator 
and keypunch operators. And more important, he adds, 
it’s accurate. 



This is an application of a more general nature. But as 
might be expected for an engineer whose company's end 
products fly to Jupiter and other celestial points, Vogel 
has designed many highly technical and specific 4051 
programs for solving spacecraft design problems. 

Vogel has contributed the "NASTRAX Deck 
Generator for Electronic Enclosure Analysis" to the 405 1 
Applications Library. It is described in the New Abstracts 
section of TEKniques. 

Outside of his work at Fairchild, Vogel has developed 
programs to custom design greeting cards. These are 
discussed in the Editor’s Note. 

Interview arranged by Brett Nelson, Tektronix Sales En- 
gineer, Rockville, Md. 



Fig. 5. The support points are on the bottom of the box at the 
left front corner, the right front corner, and partially 
along the grid between grid numbers 400 and 41 0. Fig. 6. Portions of the formatted data are shown with brief 

Refer to Figure 4. interpretations. 



How many suooort point* ? 

in the number of such support points: 3 

Reter to the bo* schematic and to panel schematics. 
The bo' corners have grid numbers : 
cotton - left - trant 000 - rear 030 

- ri*ht - front 400 - rear 430 

Tod - left - front 002 - rear 032 

~ ri^ht - front 402 - rear 432 

MOTE: suppor ts need not be at corners. 

rey m the aria number for each support point 

iutiior t pomr l ojr id number: 000 
iupcert point j arid number: 400 
iuptor » point 3 arid number • 402 



r ”\£. completes all the inputs. Please wait until the completion message 

appear * 

Press COPY ro save this paa«. then press RETURN 



The first four cards are specific Job Code Language fo Fairchild 



"FSDBOXAN JOB <G, >1 'Cl 123436789, E 

" REGION-400K, TlnE-39 

/' EXEC MASBAH16,CORE*400K,PLTAPE' 

' -'8AHD I T . SYS I N DD t 

ID HASTP AH, BOX ANALYSIS 

APP DISPLACEMENT 

SOL 3,8 

TINE 30 

C END 

r I TLE * TITLE hBCDE 

SUBTITLE » NASTRAH BOX ANALYSIS 

ECHO = BOTH 

NEC TOR = ALL 

METHOD * 1 

SPC=i 

0UTPJT.' 'PLOT » 

PLOTTER CALCOflP. MODEL 765.205 



PS ' « MSGLEUEL* 1 » CLASS»E , 



l 



ALL 



MAXIMUM DEFORMATION 2.0 
FIND sChLE. ORIGIN 1.5ET 1 
PLOT icT 1, ORIGIN 1, SHAPE 
PLOT MODAL DEFORMATION l THRU 
BE Glm BULK- 



SET I, SYMBOL 0. SHAPE 



e i •: 

♦ E I OR 1 
♦EIGR1 
- MAT 1 
MAT 1 
MAT 1 
-MAT l 
PARAM 
PARAM 
~ PQUAD2 
P QUAD 2 
PQUAD2 ' 



1 



1 

2 

3 

4 

GRDPHT 

WTMASS 

1 

2 

3 



G 1 11 



1.0047 

2.0047 

3.0047 
6. 50+6 
1000 
.90259 
1 

2 

2 



3. 7546 
4.00*6 
1.1547 
2. 40*6 



Elastic Moduli 



D aneis 



9.02500 

0.05000 

0.04880 



.065 

.28 

.065 



. Thickness 
Material 



■ Density — ibs cu 



CCNM2 

COM2 

CG>-n2 

CCNM2 

CGA*> 

CONNS 

CCNN2 

C0*J M 2 

-OOHM2 



C0UAC2 
C.'Li AD 2 
~TR I[ 
GRID 

mp: 

-MH31 

4M1131 

GRID 

GRID 

GRID 

UPC 

+M 1 23 1 

*M 1 2 3 1 

GR r D 

GRID 

GRID 

MPC 



10001 

10002 

10003 

10004 

10005 



1230 
1000 
1110 
1220 
12 32 



8 . 

100 . 

48. 



288 

200 

980 



canei numoer ana sena: 
cer of panel Those 



19006 


1002 




3.800 


missmg 


u e. 4 & 6 of 


10007 


1001 




3.600 








10908 


1012 




2.090 


pane 1 t i 


are cutouts 


10 


399 


-10I.I 




3.900 




J 






i 


1 


Hal 


1 1 39 


— nmr 


1031 






2 


1 


1122 


1131 


1031 


1032 






3 


1 


1231 


1230 


1139 


1131 






5 


1 


1331 


1330 


1230 


1221 






7 


1 


1431 


1430 


1329 


.1331 






2 ■ 


1 


14 32 


14 31 


1331 


1232 






A 


2 


1110 


1100 


1000 


1810 






18 


2 


1120 


1110 


1910 


1029 






% ‘ 


- 


1130 

L 


1120 

1 


1820 

i 


1039 

i 












Four corne r points. 


• 

• 




51 


6 


1422 


1412 


1411 


1421 






52 


6 


1472 


1422 


1421 


1431 




1120 




3.0000 


5. 7500 


0.0000 




0 


1131 




2.9355 


6 ,8416 


4.0401 




0 


1 




1131 


5 


0.99400 


1131 


4 


0.08283 






1 131 


6 


0.07144 








-1112 




2.971 1 


6.3332 


3.0863 




0 


1230 




to . 0000 


5.5000 


9. 80U0 




U 


1231 




5.7367 


5.8332 


4.3303 




0 


1 




1231 


.5 . 


9.99409 


1231 


4 


0.08283 






1231 


.... 6 


0.07144 








1232 




574734 


6. 1664 


"3 r^sas" 




-0 


1330 




9.0000 


5.2500 


0.0080 




0 


1331 




8.4878 


5.6248 


4.6204 




0 


1 




1331 


5 


0.99400 


1331 


4 


0.08283 



♦M1421 

+H1421 


1421 


6 


0.17274 






GRID 


1431 


11.2390 


5.4164 


4.9106 


0 


GRID 


1482 


11.0000 


6.7509 


9.0000 


0 


GRID 


1412 


10.8269 


6.4442 


?.2’37 


0 


GRID 


1422 


10.6520 


6. 1385 


9.5474 


0 


GRID 


1432 


10.4780 


5.8327 


9.8211 


0 


SPC1 1 

ENDDATA 

t 


123 


1099 


1400 

n — 


1492 




// 




1 

Single Point Support Points 





- Subpaneis 

_ Concentrated 
Masses 



Direction cosines of the face normal 
(starting with the largest) 



GRID number and the X. Y. Z coordinates 
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PARSING A STRING 

by Carl Dawson 
Tektronix, Inc. 



String Search Utility 

by Howard Mozeico 
Tektronix, Inc. 



The following subroutine will parse any input string for 
the items delineated by a comma, a space or an equal sign. 

Each call to the parser returns, in AS. the next text item. 
Multiple adjacent spaces are discarded and multiple 
commas or equal signs are returned as null text with a 
string length of zero. 



Do you ever need to find all the calls of a particular 
GOSUB, such as GOSUB 700? Or do you ever get an 
error for branching to an invalid line number and want to 
scan for other branches to that line number? These 
problems can quickly be solved by the simple program 
listed below which searches for all occurrences of a given 
string. 



For example, the string "TEXT1,,TEXT2" would return 
"TEXT1" as the first item, a null string as the second item, 
and "TEXT2" as the third item. 

As the input string, CS, is parsed, the test item returned in 
AS is deleted and CS condensed. A length of zero for CS 
signals that no more text items remain to be parsed. 

The sample program illustrates these features. Statements 
100 through 170 contain the controlling program; 
statements 1000 through 1260 contain the parser. 



tee ihit 

119 Cf "“TEST PARM1,PARM2-Y£S,PARM3, , PARM5 PARM6 ■ 

120 PRINT Cf 
130 COSUB 1989 
133 PRINT 

149 PRINT *LEN A» - ■ \ LEN< Af ) , ■ Af- ' ■ | Af » * ' • 

143 PRINT -LEN Cf - • 1 LEN< Cf > , “Cf- ' - | Cf I * ' - 

130 IF LEN<Cf ) >9 THEN 130 

160 PRIHT * JEHD OF IHPUT STRING. J“ 

170 END 

SUBROUTINE PARSER 

INPUT UARIABLE(S) : 

C* - STRING TO BE PARSE0 
OUTPUT UARIABLE(S) I 

Af - NEXT TEXT ITEM FOUND 
19 - POSITION IN Cl WHERE DELIMITER FOUND 
TEMPORARY UARIABLE(S) s 

I - SCRATCH (COUNTER) 

Ut - SCRATTM 

UALID TEXT DELIMITERS ARE ■ , * , • ■ , 

— PARSER — 



1909 REM 
1010 REM 

1029 REM 

1039 REM 

1040 REM 

1030 REM 
1060 REM 
1970 REM 
1080 REM 
1099 REM 
1109 REM 
1119 AM"" 

1115 I-l 

1129 Wf-3EG<Cf , It 1) 

1130 IF WIO- • THEN 1132 
1140 I-IM 
1139 GO TO 1129 
1152 Cf-REPC-,1,1-1) 

1169 IF Cf* THEN 1269 
1179 I9-L£H(C*)M 
1109 FOR I-I TO LEN(CI> 

1190 H«-SEG(Cf, I, 1) 

1299 IF ««<>■, 6 AND Wf<>* 

1210 I9-I 
1220 I-LEN(C*> 

1239 NEXT I 

1240 Af ■SEG(Cli 1. 19-1 ) 

1230 Cf *R£P ( * * » 1 ( 19 MIN LEN(Ct) 
1260 RETURN 



AND W$<>"»* THEN 1239 



For example, as a useful debugging or documentation 
aid, you may wish to locate all your GOSUBs. Input 
‘GOSUB' in response to the question in statement 160: 
then designate which files are to be searched. In line 240 
press ‘RETURN' and output will default to the screen; or 
input ‘P' and it will go to the printer. 



As each File is searched, the file number is printed along 
with all statements containing GOSUB. 



109 


REM STRING SEARCH UTILITY ROUTINE 




1 19 


REM 




129 


REM Set printer addreif to 41 




139 


P-41 




140 


ON EOF <0) THEN 400 




130 


PRINT "LISTRING SEARCHJJ* 

PRINT “Enter the etrlnp for which to 




169 


*earch: *| 


178 


INPUT Xf 


189 


PRINT “JIEnter the fir*t file to be 


eearched: 


15*9 


INPUT FI 




290 


F1»ABS<F1> 




219 


PRINT “IEnter the laet file to be eearchedl *1 1 


220 


INPUT F2 




238 


PRINT ‘JIEnter for output on the 


printer: *1 


249 


INPUT If 


259 


D-PIC If-*P‘ )*32t< If < )“P“ ) 




260 


PRINT “GCGJJIHSERT YOUR PROGRAM TAPE 
PRINT ‘AND PRESS 'RETURN' * | 


IN THE 4011 *1 


270 


289 


INPUT If 




290 


PRINT »d:“L’ 




390 


1-Ft 




319 


F9-0 




320 


FIND I 




339 


INPUT 9331 If 




340 


IF POSUf ,Xf , 1 >-0 THEN 330 




359 


IF F9 THEN 389 




368 


F9-1 




379 


PRINT tD! “JF1 It “1 I 




389 


PRINT fD: If 




390 


GO TO 339 




490 


I - 1 ♦ 1 




410 


IF I >F2 THEN 430 




429 


GO TO 310 




439 


PRINT ‘JGGCGSEARCM COMPLETED* 





Editor's Note: This routine is not intended for statements containing 
control characters. Comprehensive searching programs are contained in 
the 4051 R06 EDITOR ROM (see TEKniques Vol. 2 No. 6) and in the 
PLOT 50 4050A08 General Utility Programs, Volume 1, both available 
through your local Tektronix Sales Engineer. 
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Graphic Input With the User- 
Definable Keys 

by Bob Wainright 

Tektronix, Inc.— United Kingdom 

For 4051 users who have no joystick but wish to have 
graphic input, here is a solution that uses the User- 
Definable Keys. Simply include the statement GOSUB 
1010 in your program when graphic input is required: a 
flashing arrow will appear in the center of the screen. The 
arrow may be moved around the screen by pressing User- 
Definable Keys 7 through 10 for minimum units, or User- 
Definable Keys 17 through 20 for units 10 times larger. 







TAPE 




PILE * 




1 






3 

LJ 


LJ 


J 


i 


X 10 | 


5H>PT <EYS 

X 10 f 


* X10 — 




B 


G, N j 


LU 


L_U 


L_J 


- 1 



When the point of the arrow has been placed in the 
desired position, press User-Definable Key 6. Program 
control is now' handed back to the statement following the 
GOSUB 1000 statement, and X and Y contain the 
coordinates of the flashing arrow's point. 

Statements 28, 32, 36, 40. 68, 72, 76, and 80 control the 
resolution of graphic input. The constants 0.5 and 5 in 
these statements can be modified to suit your resolution 
requirements, and can be altered to suit your WINDOW 
parameters if they are other than 0, 130, 0, 100. 

Statement 1050 designates the graphic symbols font. This 
translates the slash (press the shift key along with the 
backslash key (/)) in statement 1080 into an arrow’ on the 
graphic screen. Note that the arrow’ is refreshed by using 
the secondary address of 24 in statement 1080. 



24 2-1 
23 RETURN 

28 Y-Y-8.3 

29 RETURN 

32 Y-Y*0.3 

33 RETURN 
36 X-X-0.3 
3? RETURN 

40 X-X*0.3 

41 RETURN 

68 Y-Y-3 

69 RETURN 

72 Y-Y4-3 

73 RETURN 

76 X-X-3 

77 RETURN 
80 X-X»5 
01 RETURN 

1000 REN GRAPHIC INPUT SUB 
1010 SET KEY 
1020 Z-0 

1039 X-63 

1040 Y-30 

1030 PRINT 132,10:3 
1060 IP 2-1 THEN 1100 
1070 PRINT f 32, 2 1 : X • Y 
1080 PRINT 132,24:*** 

1090 GO TO 1069 
1100 PRINT 132,19:9 
1 1 19 RETURN 



TEKniques Vol. 1 No. 5 carried a similar programming 
tip. It contains a slightly different approach to the 
WINDOW and units incremented or decremented. 



Recovering From Alternate 
Delimiters 



TEKniques Vol. 2 No. 7 carried the programming tip 
"Recovering ASCII Programs Saved With Alternate 
Delimiters," (p. 13). Several readers responded with 
another method. 



”5 



This instructs the microprocessor that parameters for 
input operations specified with a sign instead of an @ 
sign are to be changed. In this case the carriage return is 
retained as the end of record separator (ASCII 13). the 
default end of file mark remains (ASCII 255). but all line 
feeds will be deleted (ASCII 10). 



Mr. Webber had provided the above code, but since it 
eliminated all Control Js ( J ) in a program, we didn't print 
it. Apparently, tor many 405 1 users, the time and memory 
saving with this method outweighed its one disadvantage. 

Sizing Viewport 
by Dan Taylor 
Tektronix, Inc. 

A two-line routine determines whether a VIEWTORT 
command should reflect the graphic screen or 4662 
Plotter size. 



IMP 3D:X,Y 

ute 0,x,e,Y 

If the device is 32 (screen), X will be 130; if it’s 1 (Plotter). 
X will be 150. In both cases Y equals 100. 



Number Randomizing Routine 
by Dan Taylor 
Tektronix, Inc. 

TEKniques Vol. 2 No. 8 contained a routine to randomly 
order a set of positive integers. Another routine will 
randomly order data consisting of negative numbers or 
decimals as well as positive integers. 

Initially, N data values are entered into Array X. 
Statement 500 then randomly picks a starting point on the 
random number chain. Subsequent random numbers in 
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»! 



the chain will be used as index values to scramble the 
Array A elements. 



Statement 530 randomly selects the element to take part 
in the exchange. Since an array subscript cannot be 0, 
note that a 1 is added to the random value before the 
integer function is performed. Statement 540 transfers the 
value in the receiving element to temporary storage and 
statement 550 loads the value from the randomly chosen 
element into the receiving element. The value in tem- 
porary storage shifts into the randomly chosen element in 
statement 560. The random selection and transfers 
progress through all elements of the array. 



580 


N1*RND<-1 > 


510 


N*64 


520 


FOR L-l TO H 


530 


K«INT<H*RMD<n + n 


540 


T«X<L> 


558 


X<L>»X<K> 


560 


X<IO-T 


570 


HEXT L 



Correction to Programming Tip 

Two lines of code in the "Consistent Plotter Window" tip 
in TEKniques Vol. 2 No. 8 had the WTong device number. 
Change line 130 to read: 

120 MOUE *1:21.5,8 

Change line 160 to read: 

168 MOUE *1:124.5,75 



Shading Routine for Complex 
Shapes 

by Chuck Eng 
Tektronix, Inc. 

You can shade any polygon shape using the following 
routine. The shading density and angle are variable. You 
can input from, and plot to, either the 4662 Plotter or 
4051 graphic screen. To begin the routine, type k RUN\ 
You will be prompted for the number of sides in the 
polygon, the angle of the shading lines in degrees, the 
density of the shading in GDUs, and the device for input 
and output. 

4662 Plotter— Input/Output Device #1 

Position the pen at the first point and depress the CALL 
button momentarily. (Don’t hold the button down.) 
Move to the subsequent points/depressing CALL 
momentarily at each. As the points are specified, the 



polygon is outlined. When the last point is entered the 
program closes the polygon and begins shading. Note that 
the last point will be connected to the beginning point 
automatically. 

4952 Opt. 1 Joystick— Input/Output Device #2 

Position the pointer on the screen and press RETURN. 
The sequence is the same as the Plotter, but press 
RETURN instead of CALL for each point. 



I 99 IMIT 
lit WIHOOM 0,130,8,100 

129 PRINT RENTER • OF SIDES IN POLYGON: C* 



139 INPUT 

140 PRINT 
139 IHPUT 
169 PRINT 
179 INPUT 
189 PRINT 
199 INPUT 
290 PRINT 
219 INPUT 



•JJEHTER ANGLE OF SHADING LINES: CM* 

* 

•ENTER SHADING LINE DENSITY IN GDU'S: CM 
E> 

•JJEHTER GIN DEUICE t < 1 ) "PLOTTER OR <2>« JOYSTICK: CM 



•RENTER 



OUTPUT DEUICE t: CM 



2 20 DIN Pf2iN),N(2»N+l >.X(N-1),P1<2) 

230 GO TO 2 OF 1000, 1109 

249 CO TO 290 

238 S-l.0E*307 

260 L"- t . 0E+387 

270 S1-SIN(A*0. 81745327) 

289 C1-COS<A*0. 01743327) 

290 FOR 1-1 TO M 

380 MU , I )-P < 1 . I )8C1*P<2, I >*Si 
310 M(2,I>— R<1, I>*Sl*P<2, I)*C1 

3 29 S-S NIN H(2, I > 

330 L-L NAX W<2, I > 

340 NEXT I 

33 0 UU»H+1>-U<1, 1> 

369 W(2* N+l >-W<2, 1 ) 

370 Y2-S+0.3tD 

380 IF Y2>L THEN 1990 

399 K-0 

400 FOR I-l TO N 

410 Ml-W<2, I> NIN W< 2 • l+l> 

420 IF Y2<W1 THEH 340 

439 U2-H<2,I> NAX M(2,1<M) 

440 IF Y2->N2 THEN 340 

430 Xt-M< 1 , I >-<W<2, I >-Y2>*(M< li. i)-U(l,Itl))/’<M(2 l I)-M<2,I*l>) 
469 K*«<H 
479 J-X 

489 IF J-l THEN 539 

490 IF X( J-l >->Xl THEN 339 
300 X<J)-X(J-1> 

310 J-J-l 

320 CO TO 480 

339 X<J)-X1 

349 HEXT I 

539 FOR I-l TO K 

360 PlCl)-XU>*Cl-Y2*Sl 

579 P 1 <2 )-X< I JSSW^tCl 

330 TF 2tlNT<0,58I)-I>-9. 1 THEN 610 

590 NOUE f Z 1 : P 1 < 1 M P 1 <■ 2> 

600 GO TO 620 

618 DRAM fZl:PKl),Pl<2) 

620 NEXT I 
638 Y2-Y2*D 
640 GO TO 380 

1880 REN 4662 AS GIN DEUICE 

1010 FOR 1-1 TO N 

1020 INPUT 01,27:P(1, I>,P<2, I) 

1830 IF I-l THEN 1038 

1840 NOUE #Z:P( 1, I-l ),P<2, I-l) 

1030 DRAM 0Z: P< 1 , I ) , P< 2, I > 

1060 NEXT I 

1070 DRAM 92:P<1,1>,P(2, 1) 

1080 GO TO 230 
1040 E WO 

1180 REN JOYSTICK AS GIN DEUICE 

1110 FOR I-l TO N 

1129 POINTER P<1, I),P<2, I),P» 

1138 IF 1-1 THEN 1139 

1149 NOUE 0Z1:P<1, I-l >,P<2, i-i) 

1139 DRAM t2i:P<l, i),P<2, I) 

1169 NEXT I 

ii7t dram »zi:pa, n,p<2, n 

1189 GO TO 230 



<) 
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4051 Graphic System Publications 
Publication Deadlines 



p. I 

3 

3 

4 
7 

p. 1 

4 

6 



3 

4 



4 



p. i 

4 

7 

8 

10 
p. 1 

3 

5 

5 

6 
9 
12 
13 
15 

P- 1 

5 

6 

7 

8 

9 

10 

p. 1 

3 

4 

5 

6 
7 

10 



12 

13 

17 
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PROGRAMMING TIPS— BY ISSUE 



Packing Two Integers Into One 4051 Word 9 

Dashed Line Algorithm 9 

SPACE Function 

No. 2 p. 8 

4051 FAST Graphics 9 

Prompting Fixed Length Inputs 9 

For/ Next Loop Revisited 10 

Multiple Use UDK Subroutine 10 

Writing Subroutines 10 

Coding Designates Delay 

No. 3 P- 5 

Dashed Line Algorithm Update 6 

3-D Line Clipping 9 

Base Changing Routine . , 9 

Tie Menu to Both Keyboard and User-Definable Keys 10 

Salvaging re-MARked Files 10 

Variables for File Numbers 

No. 4 p. 4 

Overlays Expand Capability 5 

Save Overlay On Correct File 5 

4051 Subroutine Linkage 5 

Variable Names Take Same Bytes 0 

Tracking Variables 

CASE Condition and Parentheses, Brackets, and Braces 

INIT Rather Than CLOSE s 

Renumbering Doesn't Update Everything s 

Renumbering Might Update Wrong Line . S 

Variable Symbols Are Not Deleted 9 

Two-Character Variables Desirable 



Verifying Ensures High Quality Tape Recording Surface 

Memory Full 

Cycling 

Take Care of Your Tapes 

Structuring the Tape Directory 
Hidden Line Algorithm 

Correction to 51 00-9513 0 Results in GIN Program Ttp 
Correction on Coding Delays 
YES-NO Branch 'Typo" Confuses 

Tablet Input and Pointer Routine Displays Pen Location 

Finding the Size of an Array 

Default Response on YES NO Branch 



p. 11 



i: 



p. 14 
15 
15 

15 

16 
16 
16 
16 



No. 7 



INTEGER Function 

Storing Strings in Binary 

4907 Secret File Handling 

Pause and Continue Using the Function Keys 

Recovering ASCII Programs Saved With Alternate Dehmuers 

Avoid Moving Lines of Code Containing DEFN FN or ON THEN 

Never Branch to REMark Statements 



Fast Random Arrangement of a Data Set 
Menu String Saves Time and Memory 
Choose Your Delimiter 
Consistent Plotter Window 
Correct Use ot RND (-1) 

Close Data Files 

Quick Array of Random Numbers 



p. 12 



p. 15 

15 

16 
16 
16 
17 
17 
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ARTICLES BY APPLICATION AREA 



Acoustics 
No. 3, p. 1 
No. 8 , p. 7 
Astronomy 
No. 3, p. 3 

Braille 

No. 6 , p. 13 

Business Analysis 
No. 8 , p. 1 
No. 8 , p. 3 

Chemistry 
No. L p. 7 
No. 4, p. 2 
No. 6 , p. 12 
No. 8 , p. 5 

Circuit Design 

No. 6 , p. 6 



Controller/ 

Data Acquisition 

No. 4, p. 1 
No. 5, p. 1 
No. 6 , p. 3 
No. 6 . p. 5 
No. 7, p. 6 
No. 7, p. 7 
No. 7, p. 10 
No. 8 , p. 5 
No. 8 , p. 12 

Data Base 
Management 

No. 1 . p. 1 
No. 2, p. 4 
No. 7, p. 1 



Data 

Communications 

No. 3, p. 4 
No. 4, p. 1 
No. 6 , p. 1 
No. 7, p. 1 
No. 8 , p. 10 
No. 8 , p. 12 

Digitizing 

No. 5, p. 8 
No. 7, p. 1 

Drafting 

No. 7. p. 5 



Education 

No. 1, p^ 7 
No. 2, p. 7 
No. 3, p. 3 
No. 4, p. 2 
No. 4, p. 4 
No. 6 , p. 4 
No. 6 , p. 12 
No. 6 , p. 13 
No. 7, p. 5 
No. 8 , p. 4 
No. 8 , p. 6 
No. 8 , p. 12 

Geology 

No. 8 , p. 12 
Group Presentations 

No. 2. p. 7 
No. 6 , p. 4 



Lighting 

No. I. p. 3 

Mapping 

No. 1. p. I 
No. 2. p. 4 
No. 5, p. 8 
No. 7, p, 1 

Meteorology 
No. 8 , p. 7 
Physics 

No. 1, p. 7 
No. 3, p. 3 
Statistics 
No. 1. p. 4 
No. 2, p. I 



Text Editing 

No. 5. p. 4 
No. 6 . p. 9 
No. 7, p. 9 
UPDATES 
No. 2, p. 6 
No. 4, p. 3 
No. 5. p. 10 
No. 6 , p. 15 
No. 6 , p. 15 

MISC 

INFORMATION 

No. 1 . p. 11 
No. 5, p. 7 
No. 8 . p. 13 
No. 8 , p. 17 



PROGRAMMING TIPS— BY PROCEDURE 



Arrays 

No. 1. p. 8 
No. 2. p. 8 
N o. 6 . p. 16 
No. 8 . p. 2 

Branching 

No. 6 . p. 16 
No. 6 , p. 16 
No. ", p. 14 

Coding Techniques 
No. 2, p. 9 
No. 3, p. 10 
No. 4, p. 6 
No. 4, p. 8 
No. 7, p, 13 
No. 7, p. 14 
Comparisons 
No. 4, p. 7 



Digitizing 

No. 6 , p. 15 
No. 6 , p. 16 

Disc File Handling 
No. 4. p. 4 
No. 4. p. 5 
No. 4, p. 7 
No. 7, p. 12 
No. 7, p. 12 

Environmental 

Control 

No. 4, p. 7 
No. 7. p. 13 
No. 8 , p. 16 

Graphics 

No. 1, p. 9 
No. 2, p. 8 
No. 3, p. 5 



No. 3. p. 6 
No. 6 , p. 15 
No. 6 . p. 15 
No. 6 . p. 16 
No. 8 , p. 16 

Loops 

No. 2, p. 9 
No. 2, p. 10 
No. 6 . p. 15 
No. 7, p. 12 

Math Functions 

No. 3. p. 9 
No. 6 , p. 16 
No. 7, p. 12 
No. 8 , p. 16 



Memory 

Management 



No. 


1 , 


P- 


9 


No. 


T 


P- 


10 


No. 


4, 


P- 


4 


No. 


4. 


P- 


5 


No. 


4, 


P- 


5 


No. 


4, 


P- 


8 


No. 


4. 


P- 


8 


No. 


5, 


P- 


12 


No. 


7, 


P- 


14 


Menu 


No. 


3, 


P- 


9 


No. 


6 , 


P- 


14 


No. 


8 , 


P- 


15 


Ordering 

No. 8 . 


P- 


15 


No. 


8 . 


P- 
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Program Control Tape File Handling 



No. 4, p. 
No. 4. p. 
No. ", p. 

Strings 

No. 2, p. 
No. 7, p. 
No. 8 . p. 

Subroutines 

No. 2, p. 
No. 2. p. 
No. 3, p. 
No. 4, p. 



5 


No. 1 . p. 9 


8 


No. 3, p. 10 


13 


No. 5. p. 1 1 




No. 5, p. 12 


10 


No. 5, p. 12 


12 


No. 7, p. 12 


15 


No. 8 . p. 17 




User-Definable Keys 


10 


No. 2, p. 10 


10 


No. 3. p. 9 


9 


No. ", p. 12 


5 


Variables 



No. 3, p. 10 
No. 4, p. 5 
No. 4, p. 6 
No. 4, p. 8 
No. 4. p. 9 



ARTICLES & PROGRAMMING TIPS— BY EQUIPMENT 



TEKTRONIX 

4025 

No. 2. p. 7 
No. 6 , p. 3 

4050B01 

No. 8 . p. 1 
No. 8 , p. 3 

4051C01 

No. 3, p. 4 
No. 6 , p. 1 
No. 8 , p. 10 

4051 R06 

No. 5, p. 4 
No. 6 , p. 9 
No. 7, p. 9 

4051 R07 

No. 7, p. 8 



4641 

No. 8 , p. I 
No. 4, p. 6 
No. 7, p. 13 
No. 8 , p. 16 

4662 

No. 1, p. 3 
No. 1, p. 4 
No. 2, p. 1 
No. 2, p. 4 
No. 3, p. 3 
No. 5, p. 1 
No. 6 , p, l 
No. 6 , p. 5 
No. 6 , p. 6 
No. 7, p, 1 
No. 7, p, 5 
No, 8 , p. 1 
No. 8 , p. 3 



No. 4, p. 6 
No. 6 , p. 15 
No. 8 . p. 16 

4907 

No. 1, p. 1 
No. 2, p. 4 
No. 8 , p. 1 
No. 8 , p. 3 
No. 4, p. 4 
No. 4, p. 5 
No. 4, p. 7 
No. 7, p. 12 
4924 

No. 2, p. I 
No. 6 , p. I 
No. 6 , p. 3 
No. 7, p. 1 
No. 8 , p. 1 
No. 8 , p. 3 



No. 8 , p. 7 
No. 8 , p. 17 

4952 

No. 2, p. 4 
No. 7. p. 5 

4956 

No. 2, p. 1 
No. 5, p. 8 
No. 7, p. 1 
No. 7, p. 5 
No. 6 , p. 15 

7912AD 

No. 7, p. 6 

CM021-021 1-00 

No. 7, p. 10 

CM02I-0212-00 
No. 7. p. 10 



ADVENT Display 
Monitor 

No. 2, p. 7 
CDC 3000 
No. 6 , p. 1 
Conrac Display 
Monitor 
No. 6 , p. 3 
Cyber 74 

No. 8 , p. 12 
Fluke 1953A 
No. 6 , p. 3 

Hewlett-Packard 

2108 

No. 8 , p. 12 
6940B 

No. 6 , p. 5 



Hughes 639T Scan 
Converter 
No. 6 , p. 4 

IBM 

158 & 370 
No. 4, p. I 
2780-protocol 
computers 
No. 3, p. 4 
No. 8 , p. 10 

UNI VAC 1142 

No. 7, p. 1 

Zonic DMS 5003 
No. 4, p. 1 
Miscellaneous 
Chromatographs 
No. 8 , p. 5 
Paper Tape 
Readers/Punches 
No. 7, p. 10 
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Photo Credits Omitted 

Several photographs printed in TEKniques during 1977 and many during 1978 were graciously furnished by the customer g- 
or Tektronix personnel. Unfortunately, credit was not given. TEKniques apologizes for the oversight and lists below V 
those to whom credit belongs. 



Vol. 1 No. 
Vol. 1 No. 
Vol. 1 No. 
Vol. 2 No. 
Vol. 2 No. 



Cover Photo 
Cover Photo 
Photo, page 3 
Cover Photo 
Cover Photo 
Photos, page 2 



Vol. 2 No. 4 Cover Photo 



Vol. 2 No. 5 



Vol. 2 No. 6 



Vol. 2 No. 7 



Vol. 2 No. 8 



Photo, page 2 
Cover Photo, 'j 
Photo, page 2, > 
Photo, page 3 ) 
Cover Photo, \ 
Photo, page 2 I 
Photos, page 3 
Photo, page 4 
Photo, page 13 
Cover Photo 
Photos, pages 5 
Photo, page 7 
Cover Photo 
Photos, pages 2 



by Han Klinkspoor, Tektronix Datatek, Badhoevedorp, The Netherlands 
Courtesy of U.S. Naval Academy, Annapolis, MD 
Courtesy of U.S. Naval Academy, Annapolis, MD 

Courtesy of U.S. Forest Service, Northern Forest Fire Laboratory, Missoula, MT 
By Gary P. Laroff, Tektronix, Inc. Wilsonville, OR 

Left photo by Gary P. Laroff. Right photo courtesy of Teledyne Acoustic Research, 
Norwood, MA 

Courtesy of Prof. L.D. Mitchell, Virginia Polytechnic Institute and State University, 
Blacksburg, VA 

Courtesy of Dr. Gilbert F. Pollnow, University of Wisconsin-Oshkosh, Oshkosh. \VI 
Courtesy of Gould NavCom Systems Division, El Monte, CA 

Courtesy of Lockheed Electronics, White Sands Test Facility, Las Cruces, NM 

Sharon Van Sickle. Tektronix, Inc. Wilsonville, OR 
Tekweek Staff. Beaverton. OR 

Courtesy of University of Wisconsm-Stevens Point. Stevens Point, WI 

Courtesy of U.S. Forest Service, Six Rivers National Forest, Eureka. CA 

and 6 Courtesy of Oklahoma State Tech.. Okmulgee, OK 

Ken Cushman, Tektronix. Inc., Beaverton. OR 

Courtesy of. International Paper Company, New York. NY 

and 3 Bv Tom Johnson. Tektronix, Inc., Woodbridee. NJ 
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^ Editor’s Note 

Programming Tip Exchange 

Send in your programming tip. Any one of the following 
4051 Applications Library programs* will be yours when 
it’s published. Simply jot down a brief description of the 
function, the code and your choice of program. Mail it to 
the 4051 Applications Library serving you; Library 
addresses are listed at the back of each TEKniques issue. 

51/00-0101/0 
51/00-0702/0 
51/00-0715/0 
51/00-1401/0 
51/00-1402/0 
51/00-5401/0 

‘Documentation and listing only. 



Engineer Designs Greeting Cards 

Erwin Vogel, spacecraft engineer at Fairchild Industries, 
says "one must not neglect entertainment." He is a strong 
supporter of Arena Stage, a renowned local theater in 
dowtown Washington, DC. For a recent auction to raise 



funds, Vogel offered to produce greeting cards and poetry 
using the 4051. This was an outgrowth of applying his 
expertise to design original greeting cards. 

Vogel also ran for the State House of Delegates (lower 
house of the Maryland State Legislature) as an Indepen- 
dent. He found the 4051 a useful tool to construct 
campaign messages. 

The New Abstracts section of this issue carries Vogel’s 
programs for custom designing greeting cards. 



Catalogs and Back Issues 

Did you miss an issue of TEKniques, from Volume 1 or 2? 
Or perhaps you haven’t yet gotten your copy of the 4051 
Applications Library Program Catalog. We have 
catalogs and back issues of TEKniques on hand in the 
TEKniques office. If you’d like to receive a catalog, or 
have been wanting to find a copy of a previous issue of 
TEKniques, drop a note to the Applications Library 
serving you; Library addresses are located at the back of 
each TEKniques issue, 



51/00-5503/0 

51/00-7002/0 

51/00-8006/0 

51/00-9505/0 

51/00-9511/0 

51/00-9521/0 
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4051 Applications Library 
Program Abstracts 

Order 

Documentation and program listings of each program are 
available for a nominal charge. Programs w ill be put on tape for a 
small recording fee per program plus the charge for the tape 
cartridge. One tape will hold several programs. ( The program 
material contained herein is supplied without warranty or 
representation of any kind. Tektronix, Inc. assumes no respon- 
sibitu i and shall have no liability, consequential or otherwise, of 
any kind arising from the use of this program material or any part 
thereof ) 

Domestic U.S. Prices: 

Documentation and listings $15 per program 

Recording Fee J per program 

Tape C art ridge 26 per tape 



Contribute 

Contribute one program to the Library and receive three in 
exchange. Send in the membership card from \ our 4051 Graphic 
S\ stem Reference Manual to get the details. Or call us (G) 1/6X2- 
5411, ext. 2618. 

Forms 

Please use the Applications Library Order Form Order forms 
are included in the Membership Packet and are available from 
\our local Tektronix Sales Engineer. 

Outside U.S. 

FSogram contributions or orders outside the L.S. must be 
processed through the local Tektronix sales office or sent to one 
of the Ubranes serving your area. See Library Addresses section. 



ABSTRACT NUMBER: 51/00-6004/0 

Title: Greeting Cards & Party Invitations 

Author: Erwin Vogel 

Fairchild Space & Electronics Company 
Germantown. MD 
Memory Requirement: 32K 
^ Peripherals: 4631 Hard Copy Unit 
0 Statements: 933 
Files: 8 



Program 5: Distorted lettering— printing to fit inside a 
heart. 

Program 6: Prints a party invitation, lettering (message) 
in the form of a house. 

Program 7: Calculates when a special birthday occurs. 

Such as a billion seconds old. or 10,000 da vs. 
Input is the day and time of birth: desired 
anniversary. Output is the date of the event. 



The program has seven separate programs to print text in 
fancy patterns. 

Program 1: Print 16 lines of text in the form of 4 flowers. 

Program 2: Prints text in the form of a heart. The hearts 
are repeated — scaling text and pattern — 4, 5, 
or 6 times. 




Program 3: Prints text in the form of a knot pattern. 

Program 4: Distorted lettering — printing radially out- 
ward from a circle. 



The first five programs use as a subroutine an alphabet 
generated by the author. The alphabet contains only 
capital letters. The subroutine specifications (input) are: 

A = letter width 

B = letter heigth 

S = slant 

ABSTRACT NUMBER: 51/00-8024/0 

Title: GPIB Frequency Response Measurement ! 

Author: Phil Somerset 1 

Tektronix, Inc. \ 

Memory Requirement: 8K 
Peripherals: Optional— 4662 Plotter 
Statements: 240 
Files: 1 

This program uses a Fluke 6011 A Synthesized Signal 
Generator and a Fluke 8502A Digital Multimete^ to 
measure the frequency response of any device working in 
the range 10 Hztol MHz. The device under test may be a 
passive deivce, such as a resistor, inductor, filter, 
transformer, etc., or it may be a voltage or power 
amplifier. Input of test parameters is interactive and the 
results are graphed on a logarithmic scale and 
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documented with user-supplied data. The output graph 
may be directed to the 4662 Plotter if available. 
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ABSTRACT NUMBER: 51/00-8022/0 

Title: Automatic Tape Directory 

Author: E.A. Bleiweiss 

University of New Mexico 
Civil Engineering Research 
Albuquerque, NM 
Memory Requirement: 8K 
Statements: 150 
Files: 1 

The program will list in order the contents of a magnetic 
tape cartridge by file number, size, type (ASCII or 
BINARY) and contents (title of Program). It will then 
load and run a selected program if requested. 



ABSTRACT NUMBER: 51/00-9527/0 

Title: 3D-Transformation Using Homogeneous Coor- 
dinates 

Author: George E. Heckler 

Department of Chemistry 
Idaho State University 
Pocatello, ID 

Memory Requirement: 24K 
Statements: 339 
Files: 1 

The program displays two straight sided 3-D figures on 
the screen. On the left is the original figure; the points at 
the corners of the original are transformed by a 4 x 4 
matrix and displayed on the right. The transforming 
matrix, and coordinates of illustrative points, are also 
displayed. The matrix multiplication uses homogeneous 
coordinates. 




The program requires the first 2 files on the tape. File 1 is 
for the program, file 2 for the data (Table of Contents). 

When used for the first time the program will scan each 
file starting with file 3, then read and list the first line of 
each file. The first line of each program must be a REM 
statement and contain the title in braces f]. Up to 48 
characters may be used in the title. 

The maximum title storage capability in file 2 is 43 files. If 
more are required file 2 may be marked larger and the 
appropriate lines of code changed in the program. 

NOTE: Requires a data file. 



t«4831 


APPLICATIONS LIBRARY PROCRAMSm 


file 


SIZE 


TYPE 


CONTENTS 




312B 


ASCII 


AUTOMATIC TAPE DIRECT0RY/17JAN78 


2 


3128 


BINARY 


DIRECTORY DATA 


3 


3128 


ASCII 

ASCII 


2-LINE LABEL PROCRAM 
MODIFIED 2-LINE label program 


5 

4 


1288 

1792 


ASCII 

ASCII 


SOFTWARE CHARACTER SfMf£5J0R 

software character generator 


7 

1 


2384 


ASCII 


DATA x 


1192 


ASCII 


DRAW 


2848 


BINARY 


DATA / 


18 


1792 


ASCII 


DATA / 


It 


18732 


ASCII 


DRAW 


12 


4688 


ASCII 


DASHED LIMES 


13 


76$ 


ASCII 


DATA GRAPHING 


14 


22818 


ASCII 


DATA GRAPHING 


13 


1792 


MEM 




tt 


768 


LAST 




CUMCM1 


88 Oft 


DECEMBER 


I !•» 1978 


DO TOO 


UOMT AM 


UPDATE 1 





ABSTRACT NUMBER: 51/00-9528/0 

Title: "NASTRAN Deck Generator for Electronic 
Enclosure Analysis" 

Author: Erwin Vogel 

Fairchild Industries 
Germantown, MD 
Memory Requirement: 32K. 

Peripherals: RS-232 Data Communications I/F 
Host w/ NASTRAN Software 
Statements: 1024 
Files: 2 

An interactive tutorial program creates three- 
dimensional models for structural analysis. 

The engineer enters 12 coordinates specifying the corners 
of any rectangular or skew box. Each panel is subdivided 
and the material types and thickness for each keyed in. 
Number and location of cutouts, number and weight of 
concentrated masses for each panels along with support 
points and locations are input. 

The 4051 calculates the data, fromats it to NASTRAN 
requirements and writes it to tape. The data may then be 
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transmitted over the RS-232 to the host computer where 
hulk data and JCL cards are automatically keypunched. 

The program’s step-by-step graphically tutorial promp- 
ting enable the engineer without computer experience to 
use it with ease. 



ABSTRACT NUMBER: 51/00-9529/0 
Title: SCOPE 
Author: Devon Nickerson 

U.S.F.S. Logging Systems Group 
Six Rivers National Forest 
Edit by: Steve Wells 

Tektronix, Inc. 

Memory Requirement: 32K 
Peripherals: 4956 Graphic Tablet 
4631 Hard Copy Unit 
Optional— 4662 Plotter 
Statements: 1166 
Files: 8 program 
25 data 

SCOPE, a timber management planning tool, depicts a 
partial cut timber stand in perspective view. The timber 
stand is drawn with a TV-scan approach, producing a 
panoramic reproduction. By specifying the percentage of 
timber to be removed in a partial cut operation? the 
planner can get a feel for the textural change in the timber 
canopy that results from his management activities. This 
program is similar to CDC 6400 program "PREVIEW" 
developed at SUNY, Syracuse, NY, by Mykiestad and 
Wager (see USD A Forest Service Research Paper NE- 
355 (1976)). However, "SCOPE" was developed for a 
desktop computer system. 




Using the TEKTRONIX 405 1 and 4956 digitizing tablet, 
and optionally a 4662 Plotter, the user delineates the 
boundary of a proposed unit, the boundary of any 



unforested land within the unit boundary, and the top and 
bottom points of skyline corridors. Next, the user 
prepares a matrix of elevation observations by digitizing 
the contours on the topographic map. Then the user 
describes the timber stand and the cut. Finally, the user 
identifies a vista point, and the depiction of the stand is 
drawn on the Plotter. 

"Trees" are described on the basis of a series of random 
numbers. The height, crown ratio, crowrn width, DBH, 
and position of each tree are functions of the stand 
characteristics and the random number. As a result, the 
stand is convincingly natural in appearance. 

A topographic map provides the basis for input data. Use 
a map of the largest possible scale with the most detailed 
contour information. Once all data is input, a typical plot 
may take 30 minutes or more. 



ABSTRACT NUMBER: 51/00-9530/0 
Title: GRAFTS 
Author: GCS Group 

EMC Tektronix 
Amstelveen, Holland 
Memory Requirement: 16K 

Level 5 Firmware 
Peripherals: 4907 File Manager 
or 405 1R05 

Optional— 4662 Plotter 

Statements: 

Files: 21 



The software package contains three graphing routines 
and a number of utility routines. 

Graphing routines: GRAPH for drawing a curve 
through user-defined data pairs. 
POLAR for drawing a curve defin- 
ed by magnitudes and angles. 
CURVE tor drawing curve defined 
by coefficients and exponents. 

The selectable options include: 



1. Autoscaling 

2. Lin-lin, semi-log, 
log-log axis systems 

3. Curve smoothing 

4. Multiple curve plots 



5. Line types 

6. Data point identification 

7. Graphic device address 

8. Data point connection 



GRAFUS can be easily used in combination with user 
programs using the APPEND command. 



The user has access to a set of graphic routines with 
selectable options which can be inserted into his her 
application program. 
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GRAFUS is equipped with a data-checking and error- 
message routine. JS> 





Tektronix 

COMMITTED TO EXCELLENCE 

TEKTRONIX, INC. 
Information Display Group 
Applications Library 
Group 451 
P.O. Box 500 
Beaverton, Oregon 97005 



STELLA mcmorran 



60-307 
IF YOU HAVE 
PLEASE CALL 



MOVED 

2618 



ADDRESS CORRECTION REQUESTED 



4051 Applications Libraries 



Africa, Europe, Middle East 

4051 Applications Library 
Tektronix International, Inc. 
European Marketing Centre 
"Bavinckstaete" 

Prof. Bavincklaan 5 
1183 at Amstelveen, The Netherland 

Australia 

4051 Applications Library 
Tektronix Australia Pty. Limited 
Sydney 

80 Waterloo Road 
North Ryde, N.S.W. 2113 



Canada 

4051 Applications Library 
Tektronix Canada Ltd. 

P.O. Box 6500 
Barrie, Ontario 
s Canada L4M 4V3 

Caribbean, Latin America 
and Far East (excl. Japan) 

Ms. Bev Brandon, 73-312 
Export Marketing 
Tektronix, Inc. 

P.O. Box 500 
Beaverton, Oregon 97077 
U.S.A. 



Japan 

4051 Applications Library 
Sony /Tektronix Corporation 
9-31 Kitashinagawa-5 
Tokyo 141 Japan 

United States 

4051 Applications Library 
Tektronix, Inc, 

Group 451 
P.O. Box 500 
Beaverton, Oregon 97077 






